home *** CD-ROM | disk | FTP | other *** search
- ; Very simple random number game by George Bray
- ; georgebray@breathemail.net
- ; http://users.breathemail.net/georgebray
-
- Print "Escape from the furry animals of Ancipital"
- SeedRnd(MilliSecs())
- f=Rnd(20)
- For g=1 To 5
- guess = Input ("Guess the frequency of the menagerie? (0 - 20) ")
- If guess=f Then Goto goat
- If guess<f Then Gosub cow
- If guess>f Then Gosub head
-
- .g Next
- Print"*******BooooooooooooooM******* The menagerie exploded. The correct frequency was: ": Print f
- MouseWait
- End
- .cow Print "Frequency too low - Careful":Return
- .goat Print "WELL DONE DUDE - YOU ESCAPED FROM THE FURRY ANIMALS OF ANCIPITAL"
- MouseWait
- End
- .head Print"Frequency too high - try again":Return
- MouseWait
- End
-
-
-